home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vb_asst / vbassist.frm < prev    next >
Text File  |  1995-09-06  |  6KB  |  216 lines
  1. VERSION 2.00
  2. Begin Form VBAssist 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "VB Assistant"
  5.    ClientHeight    =   2355
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   3870
  9.    Height          =   2760
  10.    Icon            =   VBASSIST.FRX:0000
  11.    Left            =   1035
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   2355
  16.    ScaleWidth      =   3870
  17.    Top             =   1140
  18.    Width           =   3990
  19.    Begin ListBox lstTextFiles 
  20.       Height          =   1590
  21.       Left            =   1980
  22.       Sorted          =   -1  'True
  23.       TabIndex        =   4
  24.       Top             =   720
  25.       Width           =   1815
  26.    End
  27.    Begin ListBox lstHelpFiles 
  28.       Height          =   1590
  29.       Left            =   60
  30.       Sorted          =   -1  'True
  31.       TabIndex        =   3
  32.       Top             =   720
  33.       Width           =   1815
  34.    End
  35.    Begin CommandButton btnIconEditor 
  36.       Caption         =   "&Icon Editor"
  37.       Height          =   315
  38.       Left            =   1980
  39.       TabIndex        =   2
  40.       Top             =   60
  41.       Width           =   1815
  42.    End
  43.    Begin CommandButton btnSaveNRun 
  44.       Caption         =   "&Save-n-Run"
  45.       Height          =   315
  46.       Left            =   60
  47.       TabIndex        =   1
  48.       Top             =   60
  49.       Width           =   1815
  50.    End
  51.    Begin Label lblTextFiles 
  52.       Caption         =   "Text Files"
  53.       ForeColor       =   &H00FF0000&
  54.       Height          =   195
  55.       Left            =   1980
  56.       TabIndex        =   5
  57.       Top             =   480
  58.       Width           =   1815
  59.    End
  60.    Begin Label lblHelpFiles 
  61.       Caption         =   "Help Files"
  62.       ForeColor       =   &H00FF0000&
  63.       Height          =   195
  64.       Left            =   60
  65.       TabIndex        =   0
  66.       Top             =   480
  67.       Width           =   1815
  68.    End
  69. End
  70. Dim Result As Integer
  71.  
  72. Sub btnIconEditor_Click ()
  73.  
  74.     Screen.MousePointer = 11
  75.     On Error GoTo Error_IconEditor
  76.  
  77.     Result = Shell("\vb\samples\iconwrks\iconwrks", 1)
  78.     GoTo End_IconEditorSub
  79.  
  80. Error_IconEditor:
  81.     MsgBox "Error executing icon editor.", 16, "VB Assistant"
  82.     Resume End_IconEditorSub
  83.  
  84. End_IconEditorSub:
  85.     Screen.MousePointer = 0
  86.  
  87. End Sub
  88.  
  89. Sub btnSaveNRun_Click ()
  90.  
  91.     Screen.MousePointer = 11
  92.     On Error GoTo Error_SaveNRun
  93.  
  94.     AppActivate "Microsoft Visual Basic [design]"
  95.     SendKeys "%FV{F5}"
  96.     GoTo End_SaveNRunSub
  97.  
  98. Error_SaveNRun:
  99.     MsgBox "Error executing Save-n-Run.", 16, "VB Assistant"
  100.     Resume End_SaveNRunSub
  101.  
  102. End_SaveNRunSub:
  103.     Screen.MousePointer = 0
  104.  
  105. End Sub
  106.  
  107. Sub Form_Load ()
  108.     'Change mouse to hourglass
  109.     Screen.MousePointer = 11
  110.  
  111.     'Put it way in the lower left corner
  112.     VBAssist.Left = Screen.Width - VBAssist.Width
  113.     VBAssist.Top = Screen.Height - VBAssist.Height
  114.  
  115.     'Text Files
  116.     lstTextFiles.AddItem "Q+E/VB DBF's"
  117.     lstTextFiles.AddItem "Q+E/VB Err's"
  118.     lstTextFiles.AddItem "Q+E/VB Hints"
  119.     lstTextFiles.AddItem "PropView"
  120.     lstTextFiles.AddItem "VB Constants"
  121.     lstTextFiles.AddItem "VB Quirks"
  122.     lstTextFiles.AddItem "VBPro Constants"
  123.     lstTextFiles.AddItem "VBPro Help Decs"
  124.     lstTextFiles.AddItem "VBPro HugeArry"
  125.     lstTextFiles.AddItem "VBPro Pen API"
  126.     lstTextFiles.AddItem "VBPro SetupKit"
  127.     lstTextFiles.AddItem "VBPro Win API"
  128.  
  129.     'Help Files
  130.     lstHelpFiles.AddItem "Visual Basic"
  131.     lstHelpFiles.AddItem "Q+E/VB"
  132.     lstHelpFiles.AddItem "Win API"
  133.     lstHelpFiles.AddItem "API XRef"
  134.     lstHelpFiles.AddItem "Setup Kit"
  135.     lstHelpFiles.AddItem "VB Knowledge"
  136.     lstHelpFiles.AddItem "Control XRef"
  137.  
  138.     'Restore mouse
  139.     Screen.MousePointer = 0
  140. End Sub
  141.  
  142. Sub lstHelpFiles_DblClick ()
  143.  
  144.     Screen.MousePointer = 11
  145.     On Error GoTo Error_HelpFiles
  146.  
  147.     Select Case lstHelpFiles.Text
  148.         Case "Visual Basic"
  149.             Result = Shell("winhelp \vb\vb", 1)
  150.         Case "Q+E/VB"
  151.             Result = Shell("winhelp \qevb\qevb", 1)
  152.         Case "Win API"
  153.             Result = Shell("winhelp \vbpro\winapi\winsdk", 1)
  154.         Case "API XRef"
  155.             Result = Shell("winhelp \vbpro\winapi\apixref", 1)
  156.         Case "Setup Kit"
  157.             Result = Shell("winhelp \vbpro\setupkit\setupkit", 1)
  158.         Case "VB Knowledge"
  159.             Result = Shell("winhelp \vbpro\vbknowlg", 1)
  160.         Case "Control XRef"
  161.             Result = Shell("winhelp \vbpro\ctrlref", 1)
  162.     End Select
  163.     GoTo End_HelpFilesSub
  164.  
  165. Error_HelpFiles:
  166.     MsgBox "Error executing WinHelp.", 16, "VB Assistant"
  167.     Resume End_HelpFilesSub
  168.  
  169. End_HelpFilesSub:
  170.     Screen.MousePointer = 0
  171.  
  172. End Sub
  173.  
  174. Sub lstTextFiles_DblClick ()
  175.  
  176.     Screen.MousePointer = 11
  177.     On Error GoTo Error_TextFiles
  178.  
  179.     Select Case lstTextFiles.Text
  180.         Case "Q+E/VB DBF's"
  181.             Result = Shell("notepad \qevb\qevbdbf.txt", 1)
  182.         Case "Q+E/VB Err's"
  183.             Result = Shell("notepad \qevb\qevberr.txt", 1)
  184.         Case "Q+E/VB Hints"
  185.             Result = Shell("notepad \qevb\xdb.txt", 1)
  186.         Case "PropView"
  187.             Result = Shell("notepad \win\system\propview.txt", 1)
  188.         Case "VB Constants"
  189.             Result = Shell("notepad \vb\texts\constant.txt", 1)
  190.         Case "VB Quirks"
  191.             Result = Shell("notepad \vb\texts\vbquirk.txt", 1)
  192.         Case "VBPro Constants"
  193.             Result = Shell("notepad \vbpro\const2.txt", 1)
  194.         Case "VBPro Help Decs"
  195.             Result = Shell("notepad \vbpro\hc\winhelp.txt", 1)
  196.         Case "VBPro HugeArry"
  197.             Result = Shell("notepad \vbpro\samples\hugearry\readme.txt", 1)
  198.         Case "VBPro Pen API"
  199.             Result = Shell("notepad \vbpro\samples\pen\vbpenapi.txt", 1)
  200.         Case "VBPro SetupKit"
  201.             Result = Shell("notepad \vbpro\setupkit\readme.txt", 1)
  202.         Case "VBPro Win API"
  203.             Result = Shell("\dos\edit.com /h \vbpro\winapi\winapi.txt", 1)
  204.     End Select
  205.     GoTo End_TextFilesSub
  206.  
  207. Error_TextFiles:
  208.     MsgBox "Error executing text editor.", 16, "VB Assistant"
  209.     Resume End_TextFilesSub
  210.  
  211. End_TextFilesSub:
  212.     Screen.MousePointer = 0
  213.  
  214. End Sub
  215.  
  216.